| TruncateString method |
Applies to
TTextTestListener
Declaration
Function TruncateString(s :string; len :integer): string;
Implementation
function TTextTestListener.TruncateString(s :string; len :integer) :string;
begin
if Length(s) > len then
result := copy(s, 1, len) + '...'
else
result := s
End; |
|
|